 Private Sub Command1_Click()
 'Randomize              	'߼Ӵ˾벻Ӵ˾䶼һ£ߵ
 For i = 1 To 10
      Print IntRnd*10    	10[09]Χڵ
Next
End Sub
